What PC? 1999 January/WPCJAN99.ISO/DXRS/Buyers01.dxr/acrobat loader_43_call PDF file tool shape and script.ls

Text File | 1998-11-09 | 7.1 KB | 286 lines

on mouseUp
  global frameThatCalledPDFReview, pdfFileName
  set pdfFileName to getPDFFileName()
  put "*** sr PDF filename = " & pdfFileName
  set frameThatCalledPDFReview to the frame
  checkForAcrobat()
end

on checkForAcrobat
  global runAcrobatWithoutPrompting, DriveLtr, theApp, pdfFileName, frameThatCalledPDFReview
  put "*** sr" && pdfFileName
  if (pdfFileName = "\acrofile\reviews\9812\wpc99.pdf") or (pdfFileName = "\acrofile\reviews\9812\wpc099.pdf") then
    nothing()
    put "revised pdffilename" && pdfFileName
  else
    set acrobatloaded to checkifacroloaded()
    put "Acrobat loaded = " && acrobatloaded
    case acrobatloaded of
      "TRUE":
        if runAcrobatWithoutPrompting = 1 then
          open(DriveLtr & pdfFileName, theApp)
          go(frameThatCalledPDFReview)
        else
          go("WarningRunAcrobat")
        end if
      "FALSE":
        go("WarningAcroNotFound")
      otherwise:
        go("WarningBrowse")
    end case
  end if
end

on getPDFFileName
  global databaseProperties
  set dir9709 to [19, 116]
  set dir9711 to [19, 140, 156]
  set dir9712 to [19, 84, 106, 128, 146]
  set dir9801 to [21, 76, 96, 120, 144]
  set dir9802 to [21, 68, 90, 114]
  set dir9803 to [17, 62, 84, 106, 124]
  set dir9804 to [21, 78, 86, 104]
  set dir9805 to [23, 86, 94, 104]
  set dir9806 to [21, 106]
  set dir9807 to [21, 60, 78, 90]
  set dir9808 to [21, 60]
  set dir9809 to [23, 62, 86, 98]
  set dir9810 to [23, 68, 86, 98, 108]
  set dir9811 to [23, 60, 122, 130]
  set reviewDate to getProp(databaseProperties, #dateOfReview)
  set reviewPage to getProp(databaseProperties, #pageOfReview)
  set year to word 2 of reviewDate
  set month to word 1 of reviewDate
  if the number of chars in month = 1 then
    set month to "0" & month
  end if
  set date_dir to year & month
  put "reviewDate=" & reviewDate
  put "date_dir=" & date_dir
  set reviewPage to 0 + reviewPage
  case date_dir of
    "9709":
      if reviewPage >= 116 then
        set page_dir to 116
      else
        set page_dir to 19
      end if
    "9711":
      if reviewPage >= 156 then
        set page_dir to 156
      else
        if reviewPage >= 140 then
          set page_dir to 140
        else
          if reviewPage >= 19 then
            set page_dir to 19
          end if
        end if
      end if
    "9712":
      if reviewPage >= 146 then
        set page_dir to 146
      else
        if reviewPage >= 128 then
          set page_dir to 128
        else
          if reviewPage >= 106 then
            set page_dir to 106
          else
            if reviewPage >= 84 then
              set page_dir to 84
            else
              if reviewPage >= 19 then
                set page_dir to 19
              end if
            end if
          end if
        end if
      end if
    "9801":
      if reviewPage >= 144 then
        set page_dir to 144
      else
        if reviewPage >= 120 then
          set page_dir to 120
        else
          if reviewPage >= 96 then
            set page_dir to 96
          else
            if reviewPage >= 76 then
              set page_dir to 76
            else
              if reviewPage >= 21 then
                set page_dir to 21
              end if
            end if
          end if
        end if
      end if
    "9802":
      if reviewPage >= 114 then
        set page_dir to 114
      else
        if reviewPage >= 90 then
          set page_dir to 90
        else
          if reviewPage >= 68 then
            set page_dir to 68
          else
            if reviewPage >= 21 then
              set page_dir to 21
            end if
          end if
        end if
      end if
    "9803":
      if reviewPage >= 124 then
        set page_dir to 124
      else
        if reviewPage >= 106 then
          set page_dir to 106
        else
          if reviewPage >= 84 then
            set page_dir to 84
          else
            if reviewPage >= 62 then
              set page_dir to 62
            else
              if reviewPage >= 17 then
                set page_dir to 17
              end if
            end if
          end if
        end if
      end if
    "9804":
      if reviewPage >= 104 then
        set page_dir to 104
      else
        if reviewPage >= 86 then
          set page_dir to 86
        else
          if reviewPage >= 78 then
            set page_dir to 78
          else
            if reviewPage >= 21 then
              set page_dir to 21
            end if
          end if
        end if
      end if
    "9805":
      if reviewPage >= 104 then
        set page_dir to 104
      else
        if reviewPage >= 94 then
          set page_dir to 94
        else
          if reviewPage >= 86 then
            set page_dir to 86
          else
            if reviewPage >= 23 then
              set page_dir to 23
            end if
          end if
        end if
      end if
    "9806":
      if reviewPage >= 106 then
        set page_dir to 106
      else
        if reviewPage >= 21 then
          set page_dir to 21
        end if
      end if
    "9807":
      if reviewPage >= 90 then
        set page_dir to 90
      else
        if reviewPage >= 78 then
          set page_dir to 78
        else
          if reviewPage >= 60 then
            set page_dir to 60
          else
            if reviewPage >= 21 then
              set page_dir to 21
            end if
          end if
        end if
      end if
    "9808":
      if reviewPage >= 60 then
        set page_dir to 60
      else
        if reviewPage >= 21 then
          set page_dir to 21
        end if
      end if
    "9809":
      if reviewPage >= 98 then
        set page_dir to 98
      else
        if reviewPage >= 86 then
          set page_dir to 86
        else
          if reviewPage >= 62 then
            set page_dir to 62
          else
            if reviewPage >= 23 then
              set page_dir to 23
            end if
          end if
        end if
      end if
    "9810":
      put "in 9810 case and reviewpage = " && reviewPage
      if reviewPage >= 108 then
        set page_dir to 108
      else
        if reviewPage >= 98 then
          set page_dir to 98
        else
          if reviewPage >= 86 then
            set page_dir to 86
          else
            if reviewPage >= 68 then
              set page_dir to 68
            else
              if reviewPage > 23 then
                set page_dir to 23
              end if
            end if
          end if
        end if
      end if
    "9811":
      if reviewPage >= 130 then
        set page_dir to 130
      else
        if reviewPage >= 122 then
          set page_dir to 122
        else
          if reviewPage >= 60 then
            set page_dir to 60
          else
            if reviewPage > 23 then
              set page_dir to 23
            end if
          end if
        end if
      end if
    "9812":
      set page_dir to 99
  end case
  if page_dir < 100 then
    set page_dir to "0" & page_dir
  else
    set page_dir to EMPTY & page_dir
  end if
  put "page_dir  " & page_dir
  set pdfFileName to "\acrofile\reviews\" & date_dir & "\wpc" & page_dir & ".pdf"
  put "PDFFileName " && pdfFileName
  return pdfFileName
end